home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Programmer Disk
/
The Programmer Disk (Microforum).iso
/
xpro
/
vb2
/
pro17
/
swfrm.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-07-31
|
2KB
|
37 lines
SWFrm
Swapping
Form1*
Label1
Swap Values
12345
Label2
Swap Strings
String One
Second Str$
swCmd
Form_Paint
EmbossFrm
SWFrm
EmpressFrm
concaveFrm
ConcaveCtl
swCmd_Click
MsgSent
SwapI
SwapStr
Form_Paint
swCmd_Click
Message sent flag - don't wanna bug user
make sure SwapValue 1 is INT
compare to simple value in case there is a decimald
use WIN's MessageBox to note restrictions
We are only doing INTEGER Swaps here '["
WGlib"
Set flag so second test msg is not redundant
same thing for second value
We are only doing INTEGER Swaps here '["
WGlib"
swap values, restore to text box control'
assign test to string vars
swap and restore to .Text propertyo